home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / checker.dxr / 00004_Init all variables.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  1.0 KB  |  40 lines
  1. on exitFrame
  2.   global shadow_num, developing_MT, PNM, J, CHN, C_EXPR, C_KTKM, EXCF_S, CURR_S, PSND, MAXPSNDS, PLAYER, PC_ADR, PC_MESS, GameFileName, goOneFile
  3.   puppetSprite(3, 1)
  4.   set P to char 1 to length(the pathName) - 5 of the pathName
  5.   clearGlobals()
  6.   set goOneFile to 0
  7.   set developing_MT to 1
  8.   BP_Preferences()
  9.   set shadow_num to 1
  10.   set PNM to P
  11.   set PLAYER to 0
  12.   set the floatPrecision to 2
  13.   set the centerStage to 1
  14.   set fixStageSize to 1
  15.   set the timeoutKeyDown to 0
  16.   set the timeoutMouse to 0
  17.   set the timeoutPlay to 0
  18.   if the multiSound then
  19.     set CHN to 2
  20.   else
  21.     set CHN to 1
  22.   end if
  23.   set PSND to "SIL_PAUS.AIF"
  24.   set J to 0
  25.   set J to birth(script "J - The Question Handler Object")
  26.   EXC_Init()
  27.   QN_A_Init()
  28.   repeat with FN = 1 to 1000
  29.     if getNthFileNameInFolder(FixPath(J, PNM & "SNDS:PAUS:"), FN) = EMPTY then
  30.       exit repeat
  31.     end if
  32.   end repeat
  33.   set MAXPSNDS to FN - 2
  34.   set C_EXPR to 150
  35.   set C_KTKM to 65
  36.   set GameFileName to EMPTY
  37.   set PC_ADR to EMPTY
  38.   set PC_MESS to EMPTY
  39. end
  40.